home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / SMTPpost.mailput < prev    next >
Text File  |  1995-09-30  |  860b  |  33 lines
  1. /*
  2. ** $VER: SMTPpost.mailput 1.3 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 31
  9. PARSE ARG email, host, msg
  10.  
  11. cmd = 'AmiTCP:bin/SMTPpost'
  12. IF ~EXISTS(cmd) THEN DO
  13.    cmd = GetVar('NetMail/SMTPpostCmd')
  14.    IF cmd = 0 | ~EXISTS(cmd) THEN DO
  15.       ADDRESS COMMAND 'SetEnv NetMail/SMTPpostCmd `Which "SMTPpost"`'
  16.       cmd = GetVar('NetMail/SMTPpostCmd')
  17.       IF cmd = 0 THEN DO
  18.          ADDRESS COMMAND 'SetEnv NetMail/SMTPpostCmd `RequestFile Title "Select SMTPpost command" Noicons`'
  19.          cmd = GetVar('NetMail/SMTPpostCmd')
  20.          IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
  21.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/SMTPpostCmd ENVARC:NetMail/SMTPpostCmd'
  22.       END
  23.    END
  24. END
  25.  
  26. ADDRESS COMMAND
  27. 'Setenv SMTPSmarterHost' host
  28. 'Setenv SMTPSpoolDir T:'
  29. 'Setenv NodeName' host
  30. '"'cmd'" >NIL: <"'msg'" -n'
  31.  
  32. RETURN RC
  33.